object frmAnalisisMO: TfrmAnalisisMO
  Left = 21
  Top = 0
  Width = 985
  Height = 735
  BorderIcons = [biSystemMenu]
  Caption = 'An'#225'lisis Mano de Obra Certificadas y Pagadas'
  Color = 11587764
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    977
    701)
  PixelsPerInch = 96
  TextHeight = 13
  object Shape6: TShape
    Left = 862
    Top = 500
    Width = 81
    Height = 22
    Shape = stRoundRect
  end
  object Shape5: TShape
    Left = 862
    Top = 336
    Width = 81
    Height = 22
    Shape = stRoundRect
  end
  object Shape4: TShape
    Left = 862
    Top = 170
    Width = 81
    Height = 22
    Shape = stRoundRect
  end
  object Shape2: TShape
    Left = 241
    Top = 336
    Width = 288
    Height = 22
    Shape = stRoundRect
  end
  object Shape1: TShape
    Left = 241
    Top = 170
    Width = 288
    Height = 22
    Shape = stRoundRect
  end
  object lblFechaIni: TLabel
    Left = 8
    Top = 9
    Width = 36
    Height = 13
    Caption = 'Inicio:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblFechaFin: TLabel
    Left = 137
    Top = 9
    Width = 32
    Height = 13
    Caption = 'Final:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 30
    Width = 150
    Height = 16
    Caption = 'PAGOS AYUDANTES'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 194
    Width = 138
    Height = 16
    Caption = 'PAGOS 1/2 OFICIAL'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 360
    Width = 113
    Height = 16
    Caption = 'PAGOS OFICIAL'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 566
    Top = 30
    Width = 198
    Height = 16
    Caption = 'CERTIFICADO AYUDANTES'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 566
    Top = 194
    Width = 186
    Height = 16
    Caption = 'CERTIFICADO 1/2 OFICIAL'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 566
    Top = 360
    Width = 161
    Height = 16
    Caption = 'CERTIFICADO OFICIAL'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblSumPagosAyudantes: TDBText
    Left = 246
    Top = 173
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumDias'
    DataSource = sPagosAyudantes
    Transparent = True
  end
  object lblSumAdicionalesAyudantes: TDBText
    Left = 334
    Top = 173
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumAdicionales'
    DataSource = sPagosAyudantes
    Transparent = True
  end
  object lblSumPagosMedios: TDBText
    Left = 246
    Top = 339
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumDiasMedio'
    DataSource = sPagosMedio
    Transparent = True
  end
  object lblSumAdicionalesMedio: TDBText
    Left = 326
    Top = 339
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumAdicionalesMedio'
    DataSource = sPagosMedio
    Transparent = True
  end
  object Shape3: TShape
    Left = 241
    Top = 500
    Width = 288
    Height = 22
    Shape = stRoundRect
  end
  object lblDiasOficial: TDBText
    Left = 246
    Top = 503
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumDiasOficial'
    DataSource = sPagosOficial
    Transparent = True
  end
  object lblAdicionalOficial: TDBText
    Left = 326
    Top = 503
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumAdicionalesOficial'
    DataSource = sPagosOficial
    Transparent = True
  end
  object lblCertifAyudantes: TDBText
    Left = 876
    Top = 173
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumCertifAyudantes'
    DataSource = sCertificadoAyudantes
    Transparent = True
  end
  object lblCertifMedios: TDBText
    Left = 875
    Top = 339
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumCertifMedios'
    DataSource = sCertificadoMedio
    Transparent = True
  end
  object lblCertifOficial: TDBText
    Left = 874
    Top = 503
    Width = 61
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumCertifOficial'
    DataSource = sCertificadoOficial
    Transparent = True
  end
  object Label7: TLabel
    Left = 144
    Top = 173
    Width = 47
    Height = 13
    Caption = 'Totales:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label8: TLabel
    Left = 144
    Top = 340
    Width = 47
    Height = 13
    Caption = 'Totales:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 144
    Top = 504
    Width = 47
    Height = 13
    Caption = 'Totales:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 752
    Top = 173
    Width = 63
    Height = 13
    Caption = 'Total d'#237'as:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label11: TLabel
    Left = 752
    Top = 340
    Width = 63
    Height = 13
    Caption = 'Total d'#237'as:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label12: TLabel
    Left = 752
    Top = 504
    Width = 63
    Height = 13
    Caption = 'Total d'#237'as:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblPromAyudante: TLabel
    Left = 200
    Top = 31
    Width = 3
    Height = 13
  end
  object lblPromMedio: TLabel
    Left = 200
    Top = 196
    Width = 3
    Height = 13
  end
  object lblPromOficial: TLabel
    Left = 200
    Top = 363
    Width = 3
    Height = 13
  end
  object DBText1: TDBText
    Left = 400
    Top = 173
    Width = 57
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumDiasAd'
    DataSource = sPagosAyudantes
    Transparent = True
  end
  object DBText2: TDBText
    Left = 464
    Top = 173
    Width = 59
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumTotal'
    DataSource = sPagosAyudantes
    Transparent = True
  end
  object DBText3: TDBText
    Left = 400
    Top = 339
    Width = 57
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumDiasAd'
    DataSource = sPagosMedio
    Transparent = True
  end
  object DBText4: TDBText
    Left = 464
    Top = 339
    Width = 59
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumTotalDias'
    DataSource = sPagosMedio
    Transparent = True
  end
  object DBText5: TDBText
    Left = 400
    Top = 503
    Width = 57
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumDiasAdicionales'
    DataSource = sPagosOficial
    Transparent = True
  end
  object DBText6: TDBText
    Left = 464
    Top = 503
    Width = 59
    Height = 17
    Alignment = taRightJustify
    DataField = 'sumTotalDias'
    DataSource = sPagosOficial
    Transparent = True
  end
  object lblDifAyudante: TLabel
    Left = 358
    Top = 31
    Width = 5
    Height = 13
    Hint = 'Diferencia entre pago a ayudantes y certificado de ayudantes'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object lblDifMedio: TLabel
    Left = 358
    Top = 196
    Width = 5
    Height = 13
    Hint = 'Diferencia entre pago a 1/2 oficial y certificado de 1/2 oficial'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object lblDifOficial: TLabel
    Left = 358
    Top = 363
    Width = 5
    Height = 13
    Hint = 'Diferencia entre pago a oficial y certificado de oficial'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object Label13: TLabel
    Left = 16
    Top = 525
    Width = 205
    Height = 16
    Caption = 'PAGOS SUBCONTRATISTAS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label14: TLabel
    Left = 574
    Top = 526
    Width = 253
    Height = 16
    Caption = 'CERTIFICADO SUBCONTRATISTAS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label15: TLabel
    Left = 152
    Top = 679
    Width = 34
    Height = 13
    Caption = 'Total:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Shape7: TShape
    Left = 289
    Top = 675
    Width = 96
    Height = 22
    Shape = stRoundRect
  end
  object Shape8: TShape
    Left = 855
    Top = 675
    Width = 96
    Height = 22
    Shape = stRoundRect
  end
  object Label16: TLabel
    Left = 760
    Top = 679
    Width = 34
    Height = 13
    Caption = 'Total:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText7: TDBText
    Left = 902
    Top = 678
    Width = 42
    Height = 13
    Alignment = taRightJustify
    AutoSize = True
    DataField = 'total'
    DataSource = sCertificadoSub
    Transparent = True
  end
  object DBText8: TDBText
    Left = 337
    Top = 678
    Width = 42
    Height = 13
    Alignment = taRightJustify
    AutoSize = True
    DataField = 'pagadoTotal'
    DataSource = sPagoSub
    Transparent = True
  end
  object lblDifSub: TLabel
    Left = 358
    Top = 529
    Width = 5
    Height = 13
    Hint = 
      'Diferencia entre pago a Sucontratistas y certificado a subcontra' +
      'tistas'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object btnExcel: TSpeedButton
    Left = 848
    Top = 6
    Width = 26
    Height = 26
    Anchors = [akRight, akBottom]
    Flat = True
    Glyph.Data = {
      46060000424D4606000000000000360400002800000016000000160000000100
      0800000000001002000000000000000000000001000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
      A6000020400000206000002080000020A0000020C0000020E000004000000040
      20000040400000406000004080000040A0000040C0000040E000006000000060
      20000060400000606000006080000060A0000060C0000060E000008000000080
      20000080400000806000008080000080A0000080C0000080E00000A0000000A0
      200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
      200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
      200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
      20004000400040006000400080004000A0004000C0004000E000402000004020
      20004020400040206000402080004020A0004020C0004020E000404000004040
      20004040400040406000404080004040A0004040C0004040E000406000004060
      20004060400040606000406080004060A0004060C0004060E000408000004080
      20004080400040806000408080004080A0004080C0004080E00040A0000040A0
      200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
      200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
      200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
      20008000400080006000800080008000A0008000C0008000E000802000008020
      20008020400080206000802080008020A0008020C0008020E000804000008040
      20008040400080406000804080008040A0008040C0008040E000806000008060
      20008060400080606000806080008060A0008060C0008060E000808000008080
      20008080400080806000808080008080A0008080C0008080E00080A0000080A0
      200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
      200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
      200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
      2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
      2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
      2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
      2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
      2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
      2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
      2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00A402A402A402
      A402A402A402A402A402A402A402A402000002A402A402A402A402A402A402A4
      02A402A402A402A40000A402FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA402
      000002A4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF02A40000A402FFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFA402000002A4FFFFFFFFFFFFFFFFFFFFFFA4
      02A402A402FF02A40000A402FF02A402A402A402A402A4FFA402A402A4FFA402
      000002A4FFA402A402A402A402A4FFA402A402A4FFFF02A40000A402FFFFA402
      A402A402A4FFA402A402A4FFFFFFA402000002A4FFFFFFA402A402A4FFA402A4
      02A402A4FFFF02A40000A402FFFFFFFFA402A4FFA402A402A402A402FFFFA402
      000002A4FFFFFFFFFFA4FFA402A402A4FFFFFFFFFFFF02A40000A402FFFFFFFF
      02FFA402A402A402A4FFFFFFFFFFA402000002A4FFFFFF02FFA402A402A402A4
      02A4FFFFFFFF02A40000A402FFFF02FFA402A402A402A402A402A4FFFFFFA402
      000002A4FFA4FFA402A402A4FFA402A402A402A4FFFF02A40000A402FF02A402
      A402A4FFFFFFA402A402A402FFFFA402000002A4FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFF02A40000A402FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA402
      000002A4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF02A40000A402A402A402
      A402A402A402A402A402A402A402A402000002A402A402A402A402A402A402A4
      02A402A402A402A40000}
    OnClick = btnExcelClick
  end
  object edtFechaIni: TDateEdit
    Left = 48
    Top = 6
    Width = 75
    Height = 21
    Ctl3D = False
    DefaultToday = True
    DialogTitle = 'Seleccione una Fecha'
    NumGlyphs = 2
    ParentCtl3D = False
    PopupColor = clActiveCaption
    YearDigits = dyTwo
    TabOrder = 0
    Text = '15/12/09'
  end
  object edtFechaFin: TDateEdit
    Left = 174
    Top = 6
    Width = 75
    Height = 21
    Ctl3D = False
    DefaultToday = True
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 1
    Text = '15/12/09'
  end
  object BitBtn1: TBitBtn
    Left = 879
    Top = 8
    Width = 89
    Height = 25
    Caption = 'Cargar'
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object grdPagosAyudantes: TRxDBGrid
    Left = 8
    Top = 48
    Width = 550
    Height = 118
    DataSource = sPagosAyudantes
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'OBRA_PAGADA'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 228
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DIAS_PAGADOS'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ADICIONAL'
        Title.Alignment = taCenter
        Title.Caption = 'Adicionales'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'diasAdicionales'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as Ad'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'totalDias'
        Title.Alignment = taCenter
        Title.Caption = 'Total'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
  object grdPagosMedio: TRxDBGrid
    Left = 8
    Top = 212
    Width = 550
    Height = 118
    DataSource = sPagosMedio
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'OBRA_PAGADA'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 228
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DIAS_PAGADOS'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ADICIONAL'
        Title.Alignment = taCenter
        Title.Caption = 'Adicionales'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'diasAdicionales'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as Ad'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'totalDias'
        Title.Alignment = taCenter
        Title.Caption = 'Total'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
  object grdPagosOficial: TRxDBGrid
    Left = 8
    Top = 378
    Width = 550
    Height = 118
    DataSource = sPagosOficial
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'OBRA_PAGADA'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 228
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DIAS_PAGADOS'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ADICIONAL'
        Title.Alignment = taCenter
        Title.Caption = 'Adicionales'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'diasAdicionales'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as Ad'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'totalDias'
        Title.Alignment = taCenter
        Title.Caption = 'Total'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
  object grdCertificadoAyudante: TRxDBGrid
    Left = 566
    Top = 48
    Width = 403
    Height = 118
    DataSource = sCertificadoAyudantes
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DENOMINACION'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 286
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 70
        Visible = True
      end>
  end
  object grdCertificadoMedio: TRxDBGrid
    Left = 566
    Top = 212
    Width = 403
    Height = 118
    DataSource = sCertificadoMedio
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DENOMINACION'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 286
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 70
        Visible = True
      end>
  end
  object grdCertificadoOficial: TRxDBGrid
    Left = 566
    Top = 378
    Width = 403
    Height = 118
    DataSource = sCertificadoOficial
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DENOMINACION'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 286
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUM'
        Title.Alignment = taCenter
        Title.Caption = 'D'#237'as'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 70
        Visible = True
      end>
  end
  object grdPagosSub: TRxDBGrid
    Left = 16
    Top = 543
    Width = 403
    Height = 126
    DataSource = sPagoSub
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'OBRA'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 273
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAGADO'
        Title.Alignment = taCenter
        Title.Caption = 'Subtotal'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 74
        Visible = True
      end>
  end
  object grdCertifSub: TRxDBGrid
    Left = 566
    Top = 543
    Width = 403
    Height = 126
    DataSource = sCertificadoSub
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'DENOMINACION'
        Title.Alignment = taCenter
        Title.Caption = 'Obra'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 286
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'conIndirecto'
        Title.Alignment = taCenter
        Title.Caption = 'Subtotal'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 70
        Visible = True
      end>
  end
  object chkActualizado: TCheckBox
    Left = 888
    Top = 524
    Width = 78
    Height = 17
    Alignment = taLeftJustify
    Caption = 'Actualizado'
    Checked = True
    State = cbChecked
    TabOrder = 11
  end
  object cdsPagosAyudantes: TSQLClientDataSet
    CommandText = 
      'SELECT'#13#10'  PRESUPUESTO.DENOMINACION OBRA_PAGADA,'#13#10'  SUM(PAGO_OPER' +
      'ARIO.CANTIDAD / 8) DIAS_PAGADOS,'#13#10'  SUM(PAGO_OPERARIO.ADICIONAL)' +
      ' ADICIONAL'#13#10'FROM'#13#10'  RESPONSABILIDAD'#13#10'  INNER JOIN PAGO_OPERARIO ' +
      'ON (RESPONSABILIDAD.ID_RESPONSABILIDAD = PAGO_OPERARIO.ID_RESPON' +
      'SABILIDAD)'#13#10'  LEFT JOIN PRESUPUESTO ON (PAGO_OPERARIO.ID_OBRA = ' +
      'PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  PAGO_OPERARIO.FECHA >= :fe' +
      'chaIni AND'#13#10'  PAGO_OPERARIO.FECHA <= :fechaFin AND'#13#10'  RESPONSABI' +
      'LIDAD.RESPONSABILIDAD LIKE '#39'AYUDAN%'#39#13#10'GROUP BY'#13#10'  PRESUPUESTO.DE' +
      'NOMINACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end>
    AfterScroll = cdsPagosAyudantesAfterScroll
    OnCalcFields = cdsPagosAyudantesCalcFields
    DBConnection = Datos.Con
    Left = 16
    Top = 88
    object cdsPagosAyudantesOBRA_PAGADA: TStringField
      FieldName = 'OBRA_PAGADA'
      Size = 50
    end
    object cdsPagosAyudantesDIAS_PAGADOS: TFloatField
      FieldName = 'DIAS_PAGADOS'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosAyudantesADICIONAL: TFloatField
      FieldName = 'ADICIONAL'
      DisplayFormat = '$#,##0.00'
      currency = True
    end
    object cdsPagosAyudantesdiasAdicionales: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'diasAdicionales'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosAyudantestotalDias: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'totalDias'
      DisplayFormat = '#,##0.00'
    end
    object sumDiasAyudantes: TAggregateField
      Alignment = taRightJustify
      DisplayLabel = 'sumDiasAyudantes'
      FieldName = 'sumDias'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(DIAS_PAGADOS)'
    end
    object sumAdicionalesAyudantes: TAggregateField
      DisplayLabel = 'sumAdicionalesAyudantes'
      FieldName = 'sumAdicionales'
      Active = True
      currency = True
      DisplayFormat = '$#,##0.00'
      Expression = 'sum(ADICIONAL)'
    end
    object cdsPagosAyudantessumDiasAd: TAggregateField
      Alignment = taRightJustify
      FieldName = 'sumDiasAd'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(diasAdicionales)'
    end
    object cdsPagosAyudantessumTotal: TAggregateField
      Alignment = taRightJustify
      FieldName = 'sumTotal'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(totalDias)'
    end
  end
  object sPagosAyudantes: TDataSource
    DataSet = cdsPagosAyudantes
    Left = 48
    Top = 88
  end
  object cdsPagosMedio: TSQLClientDataSet
    CommandText = 
      'SELECT'#13#10'  PRESUPUESTO.DENOMINACION OBRA_PAGADA,'#13#10'  SUM(PAGO_OPER' +
      'ARIO.CANTIDAD / 8) DIAS_PAGADOS,'#13#10'  SUM(PAGO_OPERARIO.ADICIONAL)' +
      ' ADICIONAL'#13#10'FROM'#13#10'  RESPONSABILIDAD'#13#10'  INNER JOIN PAGO_OPERARIO ' +
      'ON (RESPONSABILIDAD.ID_RESPONSABILIDAD = PAGO_OPERARIO.ID_RESPON' +
      'SABILIDAD)'#13#10'  LEFT JOIN PRESUPUESTO ON (PAGO_OPERARIO.ID_OBRA = ' +
      'PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  PAGO_OPERARIO.FECHA >= :fe' +
      'chaIni AND'#13#10'  PAGO_OPERARIO.FECHA <= :fechaFin AND'#13#10'  RESPONSABI' +
      'LIDAD.RESPONSABILIDAD LIKE '#39'1/2%'#39#13#10'GROUP BY'#13#10'  PRESUPUESTO.DENOM' +
      'INACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end>
    OnCalcFields = cdsPagosMedioCalcFields
    DBConnection = Datos.Con
    Left = 16
    Top = 263
    object cdsPagosMedioOBRA_PAGADA: TStringField
      FieldName = 'OBRA_PAGADA'
      Size = 50
    end
    object cdsPagosMedioDIAS_PAGADOS: TFloatField
      FieldName = 'DIAS_PAGADOS'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosMedioADICIONAL: TFloatField
      FieldName = 'ADICIONAL'
      DisplayFormat = '$#,##0.00'
    end
    object cdsPagosMediodiasAdicionales: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'diasAdicionales'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosMediototalDias: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'totalDias'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosMediosumDiasMedio: TAggregateField
      FieldName = 'sumDiasMedio'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(DIAS_PAGADOS)'
    end
    object cdsPagosMediosumAdicionalesMedio: TAggregateField
      FieldName = 'sumAdicionalesMedio'
      Active = True
      DisplayFormat = '$#,##0.00'
      Expression = 'sum(ADICIONAL)'
    end
    object cdsPagosMediosumDiasAd: TAggregateField
      FieldName = 'sumDiasAd'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(diasAdicionales)'
    end
    object cdsPagosMediosumTotalDias: TAggregateField
      FieldName = 'sumTotalDias'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(totalDias)'
    end
  end
  object sPagosMedio: TDataSource
    DataSet = cdsPagosMedio
    Left = 48
    Top = 263
  end
  object cdsPagosOficial: TSQLClientDataSet
    CommandText = 
      'SELECT'#13#10'  PRESUPUESTO.DENOMINACION OBRA_PAGADA,'#13#10'  SUM(PAGO_OPER' +
      'ARIO.CANTIDAD / 8) DIAS_PAGADOS,'#13#10'  SUM(PAGO_OPERARIO.ADICIONAL)' +
      ' ADICIONAL'#13#10'FROM'#13#10'  RESPONSABILIDAD'#13#10'  INNER JOIN PAGO_OPERARIO ' +
      'ON (RESPONSABILIDAD.ID_RESPONSABILIDAD = PAGO_OPERARIO.ID_RESPON' +
      'SABILIDAD)'#13#10'  LEFT JOIN PRESUPUESTO ON (PAGO_OPERARIO.ID_OBRA = ' +
      'PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  PAGO_OPERARIO.FECHA >= :fe' +
      'chaIni AND'#13#10'  PAGO_OPERARIO.FECHA <= :fechaFin AND'#13#10'  RESPONSABI' +
      'LIDAD.RESPONSABILIDAD LIKE '#39'OF%'#39#13#10'GROUP BY'#13#10'  PRESUPUESTO.DENOMI' +
      'NACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end>
    OnCalcFields = cdsPagosOficialCalcFields
    DBConnection = Datos.Con
    Left = 24
    Top = 450
    object cdsPagosOficialOBRA_PAGADA: TStringField
      FieldName = 'OBRA_PAGADA'
      Size = 50
    end
    object cdsPagosOficialDIAS_PAGADOS: TFloatField
      FieldName = 'DIAS_PAGADOS'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosOficialADICIONAL: TFloatField
      FieldName = 'ADICIONAL'
      DisplayFormat = '$#,##0.00'
    end
    object cdsPagosOficialtotalDias: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'totalDias'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosOficialdiasAdicionales: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'diasAdicionales'
      DisplayFormat = '#,##0.00'
    end
    object cdsPagosOficialsumDiasOficial: TAggregateField
      FieldName = 'sumDiasOficial'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(DIAS_PAGADOS)'
    end
    object cdsPagosOficialsumAdicionalesOficial: TAggregateField
      FieldName = 'sumAdicionalesOficial'
      Active = True
      DisplayFormat = '$#,##0.00'
      Expression = 'sum(ADICIONAL)'
    end
    object cdsPagosOficialsumDiasAdicionales: TAggregateField
      FieldName = 'sumDiasAdicionales'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(diasAdicionales)'
    end
    object cdsPagosOficialsumTotalDias: TAggregateField
      Alignment = taRightJustify
      FieldName = 'sumTotalDias'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(totalDias)'
    end
  end
  object sPagosOficial: TDataSource
    DataSet = cdsPagosOficial
    Left = 56
    Top = 450
  end
  object cdsCertificadoAyudantes: TSQLClientDataSet
    CommandText = 
      'SELECT DISTINCT'#13#10'       PRESUPUESTO.DENOMINACION,'#13#10'       SUM(IT' +
      'EM_PRESUPUESTO.CANTIDAD * ITEM_MO.CANTIDAD * CERTIFICACION.AVANC' +
      'E / 100 / 8)'#13#10'FROM CERTIFICACION'#13#10'     LEFT OUTER JOIN ITEM_PRES' +
      'UPUESTO ON (CERTIFICACION.ID_OBRA = ITEM_PRESUPUESTO.ID_PRESUPUE' +
      'STO'#13#10'                                         and CERTIFICACION.' +
      'ID_ITEM = ITEM_PRESUPUESTO.ID_ITEM)'#13#10'     RIGHT OUTER JOIN ITEM_' +
      'MO ON (CERTIFICACION.ID_ITEM = ITEM_MO.ID_ITEM)'#13#10'     LEFT OUTER' +
      ' JOIN RESPONSABILIDAD ON (ITEM_MO.ID_RESPONSABILIDAD = RESPONSAB' +
      'ILIDAD.ID_RESPONSABILIDAD)'#13#10'     LEFT OUTER JOIN PRESUPUESTO ON ' +
      '(CERTIFICACION.ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  C' +
      'ERTIFICACION.FECHA >= :fechaInicial AND'#13#10'  CERTIFICACION.FECHA <' +
      '= :fechaFinal AND'#13#10'  RESPONSABILIDAD.RESPONSABILIDAD LIKE '#39'AYUD%' +
      #39#13#10'GROUP BY'#13#10'  PRESUPUESTO.DENOMINACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaInicial'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFinal'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 576
    Top = 88
    object cdsCertificadoAyudantesDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cdsCertificadoAyudantesSUM: TFloatField
      FieldName = 'SUM'
      DisplayFormat = '#,##0.00'
    end
    object cdsCertificadoAyudantessumCertifAyudantes: TAggregateField
      FieldName = 'sumCertifAyudantes'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(SUM)'
    end
  end
  object sCertificadoAyudantes: TDataSource
    DataSet = cdsCertificadoAyudantes
    Left = 608
    Top = 88
  end
  object cdsCertificadoMedio: TSQLClientDataSet
    CommandText = 
      'SELECT DISTINCT'#13#10'       PRESUPUESTO.DENOMINACION,'#13#10'       SUM(IT' +
      'EM_PRESUPUESTO.CANTIDAD * ITEM_MO.CANTIDAD * CERTIFICACION.AVANC' +
      'E / 100 / 8)'#13#10'FROM CERTIFICACION'#13#10'     LEFT OUTER JOIN ITEM_PRES' +
      'UPUESTO ON (CERTIFICACION.ID_OBRA = ITEM_PRESUPUESTO.ID_PRESUPUE' +
      'STO'#13#10'                                         and CERTIFICACION.' +
      'ID_ITEM = ITEM_PRESUPUESTO.ID_ITEM)'#13#10'     RIGHT OUTER JOIN ITEM_' +
      'MO ON (CERTIFICACION.ID_ITEM = ITEM_MO.ID_ITEM)'#13#10'     LEFT OUTER' +
      ' JOIN RESPONSABILIDAD ON (ITEM_MO.ID_RESPONSABILIDAD = RESPONSAB' +
      'ILIDAD.ID_RESPONSABILIDAD)'#13#10'     LEFT OUTER JOIN PRESUPUESTO ON ' +
      '(CERTIFICACION.ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  C' +
      'ERTIFICACION.FECHA >= :fechaInicial AND'#13#10'  CERTIFICACION.FECHA <' +
      '= :fechaFinal AND'#13#10'  RESPONSABILIDAD.RESPONSABILIDAD LIKE '#39'1/2%'#39 +
      #13#10'GROUP BY'#13#10'  PRESUPUESTO.DENOMINACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaInicial'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFinal'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 568
    Top = 269
    object cdsCertificadoMedioDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cdsCertificadoMedioSUM: TFloatField
      FieldName = 'SUM'
      DisplayFormat = '#,##0.00'
    end
    object cdsCertificadoMediosumCertifMedios: TAggregateField
      FieldName = 'sumCertifMedios'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(SUM)'
    end
  end
  object sCertificadoMedio: TDataSource
    DataSet = cdsCertificadoMedio
    Left = 600
    Top = 269
  end
  object cdsCertificadoOficial: TSQLClientDataSet
    CommandText = 
      'SELECT DISTINCT'#13#10'       PRESUPUESTO.DENOMINACION,'#13#10'       SUM(IT' +
      'EM_PRESUPUESTO.CANTIDAD * ITEM_MO.CANTIDAD * CERTIFICACION.AVANC' +
      'E / 100 / 8)'#13#10'FROM CERTIFICACION'#13#10'     LEFT OUTER JOIN ITEM_PRES' +
      'UPUESTO ON (CERTIFICACION.ID_OBRA = ITEM_PRESUPUESTO.ID_PRESUPUE' +
      'STO'#13#10'                                         and CERTIFICACION.' +
      'ID_ITEM = ITEM_PRESUPUESTO.ID_ITEM)'#13#10'     RIGHT OUTER JOIN ITEM_' +
      'MO ON (CERTIFICACION.ID_ITEM = ITEM_MO.ID_ITEM)'#13#10'     LEFT OUTER' +
      ' JOIN RESPONSABILIDAD ON (ITEM_MO.ID_RESPONSABILIDAD = RESPONSAB' +
      'ILIDAD.ID_RESPONSABILIDAD)'#13#10'     LEFT OUTER JOIN PRESUPUESTO ON ' +
      '(CERTIFICACION.ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  C' +
      'ERTIFICACION.FECHA >= :fechaInicial AND'#13#10'  CERTIFICACION.FECHA <' +
      '= :fechaFinal AND'#13#10'  RESPONSABILIDAD.RESPONSABILIDAD LIKE '#39'OF%'#39#13 +
      #10'GROUP BY'#13#10'  PRESUPUESTO.DENOMINACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaInicial'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFinal'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 576
    Top = 452
    object cdsCertificadoOficialDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cdsCertificadoOficialSUM: TFloatField
      FieldName = 'SUM'
      DisplayFormat = '#,##0.00'
    end
    object cdsCertificadoOficialsumCertifOficial: TAggregateField
      FieldName = 'sumCertifOficial'
      Active = True
      DisplayFormat = '#,##0.00'
      Expression = 'sum(SUM)'
    end
  end
  object sCertificadoOficial: TDataSource
    DataSet = cdsCertificadoOficial
    Left = 608
    Top = 452
  end
  object cdsProm: TSQLClientDataSet
    CommandText = 
      'SELECT DISTINCT '#13#10'SUM(PAGO_OPERARIO.ENMANO+PAGO_OPERARIO.CARGASO' +
      'CIAL) SUMA,'#13#10'COUNT(*) FILAS'#13#10'FROM PAGO_OPERARIO LEFT OUTER JOIN ' +
      'RESPONSABILIDAD ON (PAGO_OPERARIO.ID_RESPONSABILIDAD = RESPONSAB' +
      'ILIDAD.ID_RESPONSABILIDAD)'#13#10'WHERE'#13#10'PAGO_OPERARIO.FECHA >= :ini A' +
      'ND'#13#10'PAGO_OPERARIO.FECHA <= :fin AND '#13#10'RESPONSABILIDAD.RESPONSABI' +
      'LIDAD LIKE :resp'#13#10#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'ini'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fin'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'resp'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 256
  end
  object cdsCertificadoSub: TSQLClientDataSet
    CommandText = 
      'SELECT DISTINCT'#13#10'  PRESUPUESTO.DENOMINACION,'#13#10'  PRESUPUESTO.ID_P' +
      'RESUPUESTO,'#13#10'  SUM(ITEM_PRESUPUESTO.CANTIDAD * ITEM_PRESUPUESTO.' +
      'MO * CERTIFICACION.AVANCE / 100'#13#10'  * (PRESUPUESTO.IVA / 100 + 1)' +
      ' * (PRESUPUESTO.GANANCIA / 100 + 1))  AS SUMA'#13#10'FROM'#13#10'  CERTIFICA' +
      'CION'#13#10'  LEFT OUTER JOIN ITEM_PRESUPUESTO ON (CERTIFICACION.ID_OB' +
      'RA = ITEM_PRESUPUESTO.ID_PRESUPUESTO)'#13#10'  AND (CERTIFICACION.ID_I' +
      'TEM = ITEM_PRESUPUESTO.ID_ITEM)'#13#10'  LEFT OUTER JOIN PRESUPUESTO O' +
      'N (CERTIFICACION.ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'  LEFT O' +
      'UTER JOIN ITEM ON (CERTIFICACION.ID_ITEM = ITEM.ID_ITEM)'#13#10'WHERE'#13 +
      #10'  CERTIFICACION.FECHA >= :fechaIni AND'#13#10'  CERTIFICACION.FECHA <' +
      '= :fechaFin AND'#13#10'  CERTIFICACION.ID_ITEM NOT IN'#13#10'  (SELECT DISTI' +
      'NCT CERTIFICACION.ID_ITEM'#13#10'  FROM CERTIFICACION'#13#10'       LEFT OUT' +
      'ER JOIN ITEM_PRESUPUESTO ON (CERTIFICACION.ID_OBRA = ITEM_PRESUP' +
      'UESTO.ID_PRESUPUESTO) AND'#13#10'            (CERTIFICACION.ID_ITEM = ' +
      'ITEM_PRESUPUESTO.ID_ITEM)'#13#10'       RIGHT OUTER JOIN ITEM_MO ON (C' +
      'ERTIFICACION.ID_ITEM = ITEM_MO.ID_ITEM)'#13#10'  WHERE CERTIFICACION.F' +
      'ECHA >= :fechaIni'#13#10'        AND CERTIFICACION.FECHA <= :fechaFin)' +
      #13#10'GROUP BY'#13#10'  PRESUPUESTO.DENOMINACION,'#13#10'  PRESUPUESTO.ID_PRESUP' +
      'UESTO'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'fechaIni'
        ParamType = ptInput
        Value = '08/01/09'
      end
      item
        DataType = ftString
        Name = 'fechaFin'
        ParamType = ptInput
        Value = '08/31/09'
      end
      item
        DataType = ftString
        Name = 'fechaIni'
        ParamType = ptInput
        Value = '08/01/09'
      end
      item
        DataType = ftString
        Name = 'fechaFin'
        ParamType = ptInput
        Value = '08/31/09'
      end>
    OnCalcFields = cdsCertificadoSubCalcFields
    DBConnection = Datos.Con
    Left = 584
    Top = 628
    object cdsCertificadoSubDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Size = 50
    end
    object cdsCertificadoSubID_PRESUPUESTO: TFloatField
      FieldName = 'ID_PRESUPUESTO'
    end
    object cdsCertificadoSubSUMA: TFloatField
      FieldName = 'SUMA'
      DisplayFormat = '$#,###,##0.00'
    end
    object cdsCertificadoSubconIndirecto: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'conIndirecto'
      DisplayFormat = '$#,###,##0.00'
    end
    object cdsCertificadoSubtotal: TAggregateField
      Alignment = taRightJustify
      FieldName = 'total'
      Active = True
      DisplayFormat = '$#,###,##0.00'
      Expression = 'sum(conIndirecto)'
    end
  end
  object sCertificadoSub: TDataSource
    DataSet = cdsCertificadoSub
    Left = 616
    Top = 628
  end
  object cdsPagoSub: TSQLClientDataSet
    CommandText = 
      'SELECT'#13#10'  PRESUPUESTO.DENOMINACION OBRA,'#13#10'  SUM(PAGO_SUB.CARGASO' +
      'CIAL + PAGO_SUB.ENMANO) PAGADO'#13#10'FROM'#13#10'  PAGO_SUB'#13#10'  LEFT OUTER J' +
      'OIN PROVEEDOR ON (PAGO_SUB.ID_SUB = PROVEEDOR.ID_PROVEEDOR)'#13#10'  L' +
      'EFT OUTER JOIN PRESUPUESTO ON (PAGO_SUB.ID_OBRA = PRESUPUESTO.ID' +
      '_PRESUPUESTO)'#13#10'WHERE'#13#10'  PAGO_SUB.FECHA >= :fechaIni AND'#13#10'  PAGO_' +
      'SUB.FECHA <= :fechaFin AND'#13#10'  PROVEEDOR.TANTERO = '#39'0'#39#13#10'GROUP BY'#13 +
      #10'  PRESUPUESTO.DENOMINACION'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end>
    OnCalcFields = cdsPagosOficialCalcFields
    DBConnection = Datos.Con
    Left = 24
    Top = 634
    object cdsPagoSubOBRA: TStringField
      FieldName = 'OBRA'
      Size = 50
    end
    object cdsPagoSubPAGADO: TFloatField
      FieldName = 'PAGADO'
      DisplayFormat = '$#,###,##0.00'
    end
    object cdsPagoSubpagadoTotal: TAggregateField
      Alignment = taRightJustify
      FieldName = 'pagadoTotal'
      Active = True
      DisplayFormat = '$#,###,##0.00'
      Expression = 'sum(PAGADO)'
    end
  end
  object sPagoSub: TDataSource
    DataSet = cdsPagoSub
    Left = 56
    Top = 634
  end
end
